If BEG and END do not belong to the same buffer, it copies empty region." (byte-code "ÀÁÂ" [nil (byte-code "Â \"" [beg end copy-region-as-kill] 3) ((error (byte-code "Á\"" [beg copy-region-as-kill] 3)))] 3))
(defun vip-change-mode-line (string) "\
Assuming that the mode line format contains the string \"Emacs:\", this
function replaces the string by \"Vi: \" etc." (byte-code "Ã Ä\"
Turn on VIP emulation of VI." (interactive) (byte-code "Â? CÃÄ!Å ÆcebÇÈ! 7ÉÊË!!qdbÌcÍ Îp!)ÏÐ!ÑÒ!Îp!ÏÓ!ÁÔ " [vip-inhibit-startup-message t nil switch-to-buffer "VIP Startup Message" erase-buffer "VIP is a Vi emulation package for GNU Emacs. VIP provides most Vi commands
including Ex commands. VIP is however different from Vi in several points.
You can get more information on VIP by:
1. Typing `M-x info' and selecting menu item \"vip\".
2. Typing `C-h k' followed by a key whose description you want.
3. Printing VIP manual which can be found as GNU/man/vip.texinfo
4. Printing VIP Reference Card which can be found as GNU/etc/vipcard.tex
This startup message appears whenever you load VIP unless you type `y' now.
!?% ?ÆÇ!\"ÆÈ \"6 ?1ÆÉ\"6ÆÊ #*" [val com arg nil vip-P-val vip-getcom message "Value is nil, and commmand is nil." "Value is nil, and command is %c." "Value is %d, and command is nil." "Value is %d, and command is %c."] 9))
(defun vip-digit-argument (arg) "\
Begin numeric argument for the next command." (interactive "P") (byte-code "ÁÃÁ
Enlarge region between BEG and END." (byte-code " Wb ! bÂ!Ã Ä m?#n? )ÅÆ!à V 5Ä " [beg end set-mark beginning-of-line exchange-point-and-mark next-line 1] 8))
(defun vip-global-execute nil "\
Call last keyboad macro for each line in the region." (byte-code "`À V Á  à `À W $ÄÅ! à " [mark exchange-point-and-mark beginning-of-line call-last-kbd-macro forward-line 1] 10))
(defun vip-quote-region nil "\
Quote region by inserting the user supplied string at the beginning of
each line in the region." (byte-code "ÂÃÄ\"!Å Æ\" )Ç`È \"`È V &É cÊ ËÌ!`È W 9n IcÊ ËÌ!1" [vip-quote-string str vip-read-string format "quote string (default \"%s\"): " string= "" vip-enlarge-region mark exchange-point-and-mark beginning-of-line forward-line 1] 14))
(defun vip-end-with-a-newline-p (string) "\
Check if the string ends with a newline." (byte-code "ÂÃ\" GSHÄU" [text string string= "" 10] 3))
#*" [val arg com vip-s-string vip-s-forward nil vip-p-val vip-getcom error "No previous search string." vip-search vip-execute-com vip-search-next] 8))
(defun vip-search-Next (arg) "\
Repeat previous search in the reverse direction." (interactive "P") (byte-code "ÅÆ !Ç !? ÈÉ!Ê? #
#ËÌ
#*" [val arg com vip-s-string vip-s-forward nil vip-p-val vip-getcom error "No previous search string." vip-search vip-execute-com vip-search-Next] 8))
(defun vip-switch-to-buffer nil "\
Switch to buffer in the current window." (interactive) (byte-code "ÁÁÂÃÄÅÆp!!\"!Ç!È )" [buffer nil read-buffer format "switch to buffer (%s): " buffer-name other-buffer switch-to-buffer vip-change-mode-to-vi] 7))
(defun vip-switch-to-buffer-other-window nil "\
Switch to buffer in another window." (interactive) (byte-code "ÁÁÂÃÄÅÆp!!\"!Ç!È )" [buffer nil read-buffer format "Switch to buffer (%s): " buffer-name other-buffer switch-to-buffer-other-window vip-change-mode-to-vi] 7))
(defun vip-kill-buffer nil "\
Kill a buffer." (interactive) (byte-code "ÂÂÂÃÄÅÁp!\"! ?pÆ !? )ÇÈ \"É!?4ÊË!=Ì!@ÇÍ!*" [buffer buffer-name nil read-buffer format "Kill buffer (%s): " get-buffer error "Buffer %s nonexistent." buffer-modified-p y-or-n-p "Buffer is modified, are you sure? " kill-buffer "Buffer not killed."] 10))
(defun vip-find-file nil "\
Visit file in the current window." (interactive) (byte-code "ÁÁÂÃ!ÄÅ!!Æ )" [file nil read-file-name "visit file: " switch-to-buffer find-file-noselect vip-change-mode-to-vi] 5))
(defun vip-find-file-other-window nil "\
Visit file in another window." (interactive) (byte-code "ÁÁÂÃ!ÄÅ!!Æ )" [file nil read-file-name "Visit file: " switch-to-buffer-other-window find-file-noselect vip-change-mode-to-vi] 5))
(defun vip-info-on-file nil "\
Give information of the file associated to the current buffer." (interactive) (byte-code "ÀÁÂÃ Ã ÄÅe`\"TÅed\"T$" [nil message "\"%s\" line %d of %d" buffer-file-name "" count-lines] 10))
Join this line to next, if ARG is nil. Otherwise, join ARG lines" (interactive "*P") (byte-code "ÃÅ !ÆÃE?ÇSÈV <É m? 3ÊÇ!Ë``S\"Ì S))" [val arg vip-d-com nil count vip-P-val vip-join-lines 1 0 end-of-line forward-line delete-region fixup-whitespace] 8))
(defun vip-change (beg end) (byte-code "ÃÄÅÆ
\"\"!Ç
\"" [c-string beg end vip-read-string format "%s => " buffer-substring vip-change-subr] 6))
(defun vip-change-subr (beg end) (byte-code " Æ
Ã$ÃÇ
\"Èc" [vip-use-register beg end nil this-command c-string copy-to-register kill-region vip-change] 5))
(defun vip-query-replace nil "\
Query replace. If you supply null string as the string to be replaced,
the query replace mode will toggle between string replace and regexp replace." (interactive) (byte-code "ÂÂÃ ÄÅ!ÆÇ\"- ?ÈÉ (Ê)Ë\"F =ÌÃÍÎ\"!\"FÏÃÍÐ\"!\")" [str vip-re-query-replace nil vip-read-string "Query replace regexp: " "Query replace: " string= "" message "Query replace mode changed to %s." "regexp replace" "string replace" query-replace-regexp format "Query replace regexp \"%s\" with: " query-replace "Query replace \"%s\" with: "] 12))
(defun vip-mark-beginning-of-buffer nil (interactive) (byte-code "ÀÁ`!eb ÃÄ!" [nil set-mark exchange-point-and-mark message "mark set at the beginning of buffer"] 4))
(defun vip-mark-end-of-buffer nil (interactive) (byte-code "ÀÁ`!db ÃÄ!" [nil set-mark exchange-point-and-mark message "mark set at the end of buffer"] 4))
" error "Extra character at end of a command"] 6)) "non-command" error format "%s: Not an editor command" "whole" "comma" "semi-colon" vip-get-ex-address-subr] 19))
(defun vip-get-ex-pat nil "\
get a regular expression and set ex-variant if found" (byte-code "Æ" [ex-g-variant ex-g-flag cont t nil ex-token ((byte-code "ÆqÇÈ!ÉÊ! ? ?ËÌ!ÇÈ!ÉÍ!dËÌ!Î`!Ãl? 3
\\)" vip-looking-back "[^\\\\]\\(\\\\\\\\\\)*\\\\/" mark "" buffer-substring backward-char] 15))] 1))
(defun vip-get-ex-command nil "\
get an ex command" (byte-code "Ã" [ex-token-type ex-token t ((byte-code "ÃqÄÅ! ÆÇ!ÈÉ!ÄÊ!(Ë ÌÍ\" %ÎÏ \"=ÄÐ!:Ñg!ÆÇ!=ÎÒ!" [ex-token-type ex-token t " *ex-working-space*" looking-at "/" forward-char 1 skip-chars-forward " " "[a-z]" vip-get-ex-com-subr string= "non-command" error "%s: not an editor command" "[!=><&~]" char-to-string "Could not find an ex command"] 12))] 1))
(defun vip-get-ex-opt-gc nil "\
get an ex option g or c" (byte-code "Ã" [ex-token t nil ((byte-code "ÃqÄÅ! ÆÇ!ÈÉ!ÄÊ!#ÊÆÇ!Á6ÄË!5ËÆÇ!Á6Â" [ex-token t nil " *ex-working-space*" looking-at "/" forward-char 1 skip-chars-forward " " "g" "c"] 8))] 1))
get an ex-address as a marker and set ex-flag if a flag is found" (byte-code "È ÂÉÅ Ê ËÌ\"AËÍ\".ËÎ\".ËÏ\";ÂÅ>ÐÑ!|ËÒ\"OÅ|ËÓ\"]ÐÔ!|ËÕ\"kÐÖ!|×È \" {)*" [address cont t ex-token ex-flag nil ex-token-type ans point-marker "" vip-get-ex-token string= "command" "print" "list" "#" error "address expected" "end-mark" "whole" "a trailing address is expected" "comma" "Extra characters after an address" vip-get-ex-address-subr] 17))
get a buffer name and set ex-count and ex-flag if found" (byte-code "ÁÁÁÅ" [ex-buffer nil ex-count ex-flag t ((byte-code "ÄqÅÆ!ÇÈ! gÉÊ!ÅÆ!ÇË! 4Ì`!ÍÎ!ÏÐ`Ñ \"!ÅÆ!ÇÒ! BÃÉÊ!ÇÓ!? MÔÕ!" [ex-buffer ex-count ex-flag t " *ex-working-space*" skip-chars-forward " " looking-at "[a-zA-Z]" forward-char 1 "[0-9]" set-mark re-search-forward "[0-9][0-9]*" string-to-int buffer-substring mark "[pl#]" "[
|]" error "Extra characters at end of \"k\" command" "\"k\" requires a following letter" "Mark must specify a letter"] 10)) point-to-register 97 1] 4))
? l x× Øp!" [t ex-file buffer-file-name ex-variant end ex-addresses beg ex-append q-flag vip-default-ex-addresses vip-get-ex-file string= "" error "No file associated with this buffer" expand-file-name file-exists-p format "\"%s\" File exists - use w! to override" "First address exceeds second" vip-enlarge-region write-region mark delete-auto-save-file-if-necessary kill-buffer] 19))
(defun ex-yank nil "\
ex yank" (byte-code "É Ê @ A@
V ËÌ!Í
\"Î % +ËÏ!;Ð`!ÑS!>Ð!Í`Ò \" MËÓ! [Ô`Ò È$Õ`Ò \")*" [end ex-addresses beg ex-g-flag ex-g-variant ex-count ex-flag ex-buffer nil vip-default-ex-addresses vip-get-ex-buffer error "First address exceeds second" vip-enlarge-region exchange-point-and-mark "Can't yank within global" set-mark forward-line mark "Extra chacters at end of command" copy-to-register copy-region-as-kill] 18))